home *** CD-ROM | disk | FTP | other *** search
/ Inside the White House / Inside the White House.iso / prez.dir / 00021_Copy-Print.ls < prev    next >
Encoding:
Text File  |  1995-08-01  |  413 b   |  14 lines
  1. on mouseUp
  2.   global gTextSprite, myWindow, myWindowRect
  3.   pushButton()
  4.   set spriteNumber to gTextSprite
  5.   set cnum to the castNum of sprite spriteNumber
  6.   copyToClipBoard(cast cnum)
  7.   set myWindowRect to rect(20, 20, 612, 360)
  8.   set myWindow to window "Export"
  9.   set the rect of myWindow to myWindowRect
  10.   set the fileName of myWindow to "Export.dir"
  11.   set the titleVisible of myWindow to 0
  12.   open(myWindow)
  13. end
  14.